<%


Function torneio_novo_jogo(conexao, id_grupo, clube1, clube2, rodada, idrodada, temporada)

						str = "INSERT into torneios_jogos "
						str = str & "(id_grupo, id_clube_1, id_clube_2, rodada, id_rodada, temporada) "
						str = str & "VALUES ('" & id_grupo &"', "
						str = str & "'" & clube1 & "', "
						str = str & "'" & clube2 & "', "
						str = str & "'" & rodada & "', "
						str = str & "'" & idrodada & "', "		
						str = str & "'" & temporada & "')"		
						Set rsI = conexao.Execute(str)
						
						torneio_novo_jogo = 1
						
End Function

Function torneio_set_jogo_rodada(conexao, id, id_rodada)

					str = "UPDATE torneios_jogos SET "
					str = str & "id_rodada='"&id_rodada&"' "
					str = str & " WHERE id="&id
					Set rsI = conexao.Execute(str)

End Function

Function torneio_set_jogo_temporada(conexao, id, temporada)

					str = "UPDATE torneios_jogos SET "
					str = str & "temporada='"&temporada&"' "
					str = str & " WHERE id="&id
					Set rsI = conexao.Execute(str)

End Function

Function torneio_get_todosjogos_clube_grupo(conexao, id_clube, id_grupo, clubes, posicao, id_rodada)

				DIM i, k, p
				
				i = posicao
				
				if id_rodada>0 then rod = " AND id_rodada="&id_rodada

				for k=1 to 2
					
						p = 3-k
			
						str = "Select placar_1, placar_2, rodada FROM torneios_jogos where realizado=1 "&rod&" and id_clube_"&k&"="&id_clube&" and id_grupo="&id_grupo
						Set rs2 = conexao.Execute(str)		
						
						Do while not rs2.eof

							clubes(i,1) = clubes(i,1)+1					
							if rs2("placar_"&k)>rs2("placar_"&p) then clubes(i,2) = clubes(i,2)+1 
							if rs2("placar_"&k)=rs2("placar_"&p) then clubes(i,3) = clubes(i,3)+1 
							clubes(i,4) = clubes(i,4)+rs2("placar_"&k)
							clubes(i,5) = clubes(i,5)+rs2("placar_"&p)
							if rs2("rodada")>clubes(i,6) then clubes(i,6) = rs2("rodada")
						
							rs2.MoveNext
						Loop
					
					Next
					
End Function

%>